home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / t3_1 / mac.lha / mac / float.c < prev    next >
Encoding:
C/C++ Source or Header  |  1988-08-09  |  509 b   |  39 lines
  1. static double zero = 0.0;
  2.  
  3. fladd(z,x,y)
  4. double *x,*y,*z;
  5. {   *z = *x + *y;}
  6.  
  7. flsubtract(z,x,y)
  8. double *x,*y,*z;
  9. {   *z = *x - *y;}
  10.  
  11. flmultiply(z,x,y)
  12. double *x,*y,*z;
  13. {   *z = *x * *y;}
  14.  
  15. fldivide(z,x,y)
  16. double *x,*y,*z;
  17. {   *z = *x / *y;}
  18.  
  19. flless(x,y)
  20. double x,y;
  21. { if (x < y) return 1; return 0;}
  22.  
  23. flequal(x,y)
  24. double x,y;
  25. { if (x == y) return 1; return 0;}
  26.  
  27. flgreater(x,y)
  28. double x,y;
  29. { if (x > y) return 1; return 0;}
  30.  
  31. fix(x)
  32. double x;
  33. { return x;}
  34.  
  35. double flote(x)
  36. long x;
  37. { return (x + zero);}         
  38.  
  39.